VBA expression to insert pagebreak

I need to learn VBA syntax.
I have the following line of code and its not working.

Here's what I need to do.
I have a list of row numbers in AA2:AA6, so for i =1 to 5
I want to insert a page break before cell (column AA and Row(#in cell AA2-5))

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("AA" & Range("AA" & i + 1).Value)

Thanks for help in advance.
modytrane