I have used \obeylines and \everypar to add the items automatically, note that your environment definition was missing the second argument with the end code.
% !TeX program = lualatex \documentclass[10pt,twoside,openany,showtrims]{memoir} %\usepackage[T1]{fontenc} %\usepackage[spanish]{babel} \usepackage{fontspec} \usepackage{polyglossia} \setdefaultlanguage{spanish} % \usepackage{ucs} \usepackage{csquotes} \usepackage{xcolor} \usepackage{needspace} \usepackage{lipsum} \setcounter{tocdepth}{4} \settrimmedsize{6in}{9in}{*} \setmainfont{FreeSerif} \newfontfamily\fsfont{FreeSerif} \newfontfamily\alterfont{FreeSans} \newcommand{\txtred}[1]{\textcolor{red}{#1}} \newcommand{\sv}{\txtred} \newcommand{\sr}{\txtred} \makeatletter \catcode13\active % \newenvironment{readbody}{% \alterfont% \setlength\parskip{\bigskipamount}% \setlength\parindent{0pt}% \setlength\leftskip{10mm}% \catcode13\active % \def^^M{\@ifnextchar^^M{\par}{\@ifnextchar\end{\ifhmode\par\fi}{\ifhmode\\\fi}}}% \def\par{~\sr ℟.\endgraf}% \everypar{\makebox[0pt]{\sv ℣.\qquad}}% }{}% \catcode13=5 % \makeatother \begin{document} \mainmatter \begin{readbody} Señor, enséñame tus caminos, instrúyeme en tus sendas: haz que camine con lealtad; enséñame, porque tú eres mi Dios y Salvador. Recuerda, Señor, que tu ternura y tu misericordia son eternas; acuérdate de mí con misericordia, por tu bondad, Señor. El Señor es bueno y es recto, enseña el camino a los pecadores; hace caminar a los humilles con rectitud, enseña su camino a los humildes. \end{readbody} \end{document}