You didn't say where you want to extract them to. The following will extract them to a Word table.
There is no error handling in the macro as it assumes that your example is a correct reflection of what is in the document:
Sub Macro1()'Graham Mayor - https://www.gmayor.com - Last updated - 02 Sep 2019
Dim oRng As Range, oPara As Range, oCell As Range
Dim oTarget As Document
Dim vList As Variant
Dim strList As String, strSection As String, strName As String
Dim strEMPID As String, strDesignation As String, strPay As String
Dim lngCol As Long, lngLst As Long
Dim oColl As Collection
Dim oTable As Table
Dim oRow As Row
    Set oRng = ActiveDocument.Range
    Set oColl = New Collection
    With oRng.Find
        Do While .Execute(FindText:="PAY SLIP FOR THE MONTH", MatchCase:=True)
            strList = ""
            oRng.MoveEnd wdParagraph, 5
            Set oPara = oRng.Paragraphs(2).Range
            oPara.End = oPara.End - 1
            strSection = Split(oPara.Text, ":")(1)
            strList = Trim(strSection)
            Set oPara = oRng.Paragraphs(3).Range
            oPara.End = oPara.End - 1
            strName = Split(oPara.Text, ":")(1)
            strName = Replace(strName, " EMPID", "")
            strList = strList & "|" & Trim(strName)
            strEMPID = Split(oPara.Text, ":")(2)
            strEMPID = Replace(strEMPID, " Designation", "")
            strList = strList & "|" & Trim(strEMPID)
            strDesignation = Split(oPara.Text, ":")(3)
            strList = strList & "|" & Trim(strDesignation)
            Set oPara = oRng.Paragraphs(5).Range
            oPara.End = oPara.End - 1
            strPay = Split(oPara.Text, Chr(32))(1)
            strList = strList & "|" & Trim(strPay)
            oColl.Add strList
            oRng.Collapse 0
        Loop
    End With
    If oColl.Count > 0 Then
        Set oTarget = Documents.Add
        Set oTable = oTarget.Tables.Add(oTarget.Range, 1, 5)
        For lngCol = 1 To oColl.Count
            vList = Split(oColl(lngCol), "|")
            If lngCol > 1 Then oTable.Rows.Add
            Set oRow = oTable.Rows(lngCol)
            For lngLst = 0 To UBound(vList)
                Set oCell = oRow.Cells(lngLst + 1).Range
                oCell.End = oCell.End - 1
                oCell.Text = vList(lngLst)
            Next lngLst
        Next lngCol
    End If
lbl_Exit:
    Set oRng = Nothing
    Set oPara = Nothing
    Set oColl = Nothing
    Set oTarget = Nothing
    Set oTable = Nothing
    Set oRow = Nothing
    Set oCell = Nothing
    Exit Sub
End Sub