Here is my two cents:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim lngStart As Long, lngPageIndex as Long
Dim oRow As Row
  lngStart = 15 'or whatever value gets you close to the last row per page
  Do
    Set oTbl = ActiveDocument.Tables(ActiveDocument.Tables.Count)
    On Error Resume Next
    oTbl.Range.Paragraphs.First.Previous.Range.Font.Size = 1
    On Error GoTo 0
    On Error GoTo Err_Start
    Set oRow = oTbl.Rows(lngStart)
    lngPageIndex = oRow.Range.Information(wdActiveEndPageNumber)
    Do
      DoEvents
      Set oRow = oRow.Next
      If oRow.Range.Information(wdActiveEndPageNumber) = ActiveDocument.Paragraphs.Last.Range.Information(wdActiveEndPageNumber) Then Exit Do
    Loop Until oRow.Range.Information(wdActiveEndPageNumber) = lngPageIndex + 1
    oTbl.Split BeforeRow:=oRow
    DoEvents
  Loop
lbl_Exit:
  Exit Sub
Err_Start:
  Resume lbl_Exit
End Sub