AppleScript valor añadido dentro de texto

Vamos a decir que tengo el siguiente archivo de texto :

1. DEMO
2. TEXT1
3. TEXT2
4. DEMO

5. etc....

6. DEMO

7. TEXT1
8. TEXT2
9. DEMO

10. etc....

11. DEMO

12. TEXT1
13. TEXT2
14. DEMO
15. etc....

Me gustaría añadir un poco de texto entre el primer TEXT1 y TEXT2 (línea 2/3)

de modo que el texto sería :

1. DEMO
2. TEXT1 MI TEXTO AQUÍ
3. TEXT2
4. DEMO

5. etc....

6. DEMO

7. TEXT1
8. TEXT2
9. DEMO

10. etc....

11. DEMO

12. TEXT1
13. TEXT2
14. DEMO
15. etc....

Yo sé cómo me puede filtrar el texto para obtener el valor de cualquier texto que estaría allí con el código de abajo, pero ¿cómo puedo añadir un poco de texto en mi archivo de texto en este empacement ?

property leftEdge1 : "2. TEXT1"
property rightEdge1 : "3. TEXT2"
set myNewCaseNote to ""
set newFile to (path to desktop folder as text) & "_Note_Backup.txt"
set theSource to read file newFile
set theText to Unicode text
try
    set saveTID to text item delimiters
    set text item delimiters to leftEdge1
    set classValue to text item 2 of theSource
    set text item delimiters to rightEdge1
    set myCaseNote to text item 1 of classValue
    set text item delimiters to saveTID
    myCaseNote
end try