@Devender78 assuming all rows are same height and you want 25 rows per page then the easiest is to change the row height so that it automatically paginates accordingly. You can do that using trial and error or calculate it based on paper size, margins, and row heights (btw better to work in pixels where possible since measurements are rounded).
Alternatively you could use a macro something like this:
Sub print25()
Dim r1, last As Long
With ActiveSheet
last = .UsedRange.Rows.Count
For r1 = 1 To last Step 25
.PageSetup.PrintArea = r1 & ":" & r1 + 24
.PrintOut (ignoreprintareas = False)
Next r1
End With
End Sub
