Code:


    Dim i As Long
    
    ' Reset all page breaks
    ActiveSheet.ResetAllPageBreaks
    
    For i = 2 To 10
    
        ' Select range
        Range("A" & i).Select
        
        ' Add page break
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        
    Next
    
    ' {
    ' etc. code like doing printing and so on...
    ' ...
    ' optional: at the end of process reset reset all page breaks again
    ' }