Here is a subroutine to add page breaks and one to remove them
Note that the first one assumes your list is in column A of Sheet2; modify
code as needed
Sub insertBreaks()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
howmany = InputBox("How many rows on a page?")
Application.ScreenUpdating = False
For j = howmany To lastrow Step howmany
Worksheets("Sheet2").Rows(j).PageBreak = xlPageBreakManual
Next j
Application.ScreenUpdating = True
End Sub
Sub removeBreaks()
Worksheets("Sheet2").ResetAllPageBreaks
End Sub
New to VBA?
David McRitchie's site on "getting started" with VBA
http://www.mvps.org/dmcritchie/excel/getstarted.htm
Debra Dalgleish's "Adding Code to a Workbook"
http://www.contextures.com:80/xlvba01.html
best wishes