At its simplest, you simply replicate the code you have for Table 8 and point it to Table 10:
Private Sub ToggleButton1_Click()
With ActiveDocument.Tables(8).Rows(2)
  If .HeightRule = wdRowHeightExactly Then
    .HeightRule = wdRowHeightAuto
    ToggleButton1.Caption = "Yes"
    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
 Else
   ToggleButton1.Caption = "No"
  .HeightRule = wdRowHeightExactly
  .Height = ".5"
  .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
  .Borders(wdBorderRight).LineStyle = wdLineStyleNone
  End If
End With
With ActiveDocument.Tables(10).Rows(2)
  If .HeightRule = wdRowHeightExactly Then
    .HeightRule = wdRowHeightAuto
    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
 Else
  .HeightRule = wdRowHeightExactly
  .Height = ".5"
  .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
  .Borders(wdBorderRight).LineStyle = wdLineStyleNone
  End If
End With
End Sub
PS: When posting code, please use the code tags, indicated by the # symbol on the posting menu.