OK, another try. This should hopefully also solve the problem of the blank pages without additional code. It will fail if there are any very large blocks of data (more than one page) but you did say your blocks would not be greater than about 15 rows.
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> InsertPageBreaks()
<SPAN style="color:#00007F">Dim</SPAN> lr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> lb <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> tb <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> lc <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
lr = Columns("B").Find(What:="*", After:=Range("B1"), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
lb = 9
lc = 9
<SPAN style="color:#00007F">With</SPAN> ActiveSheet.PageSetup
.PrintTitleRows = "$1:$8"
.PrintArea = "$B$1:$AG$" & lr
.Zoom = <SPAN style="color:#00007F">False</SPAN>
.FitToPagesWide = 1
.Fit<SPAN style="color:#00007F">To</SPAN>PagesTall = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
ActiveSheet.ResetAllPageBreaks
<SPAN style="color:#00007F">For</SPAN> r = 10 To lr
<SPAN style="color:#00007F">If</SPAN> Int(Cells(r, 2).Value) <> Int(Cells(r - 1, 2).Value) <SPAN style="color:#00007F">Then</SPAN>
<SPAN style="color:#00007F">If</SPAN> r - lb > 85 <SPAN style="color:#00007F">Then</SPAN>
Rows(lc).PageBreak = xlPageBreakManual
lb = lc
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
lc = r
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> r
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">If</SPAN> lr - lb > 85 <SPAN style="color:#00007F">Then</SPAN>
Rows(lc).PageBreak = xlPageBreakManual
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>