Keyboard shortcut to evaluate notebook
Personally I would use what bill_s suggested, Ctrl+A followed by Shift+Enter.
But if you want to have one shortcut you can use what Timothy linked. Just add this line to the KeyEventTranslations.tr file:
Item[KeyEvent["h", Modifiers -> {Control}],
FrontEndExecute[FrontEndToken[SelectedNotebook[ ], "EvaluateNotebook"]]]
it works for me.
Your infinite loop probably showed while testing on the notebook. Well, if you want to evaluate notebook and the last line is
FrontEndTokenExecute["EvaluateNotebook"]
then it will definitelly result in such loop.
For OSX you can do the following.
Select Mathematica.
Click on "Mathematica" menu then "Services -> Services Preferences..."
Select "Shortcuts" tab.
In the left side select "App Shortcuts".
Click the + button.
Fill out the following.
Click add after you have set your short cut key and you are good to go.
I use Alt+v+o, or Alt, then v, then o (they don't have to be entered at the same time, just in succession). That's the same as Evaluation > Evaluate Notebook