Do you know about the Emacs Lisp function split-line?

(defun new-line-above ()
  "Add an empty line above and move the cursor to this line."
  (interactive)
  (back-to-indentation)
  (split-line))

(global-set-key (kbd "C-<f1>") #'new-line-above)