\documentclass{book}

\usepackage{xcolor, amssymb}
\usepackage[thmmarks, framed]{ntheorem}
\usepackage{xepersian}
\SepMark{-}

\theoremstyle{plain}
\theoremheaderfont{\large\bfseries\color{red}}
\theorembodyfont{\rm}
\theoremseparator{}
%\theorempostwork{\hrule\bigskip}
\theoremsymbol{{\color{red}\ensuremath{\blacksquare}}}
\newtheorem{point}{نکته}[chapter]
\newlength{\cwidth}
\newcommand{\autowidth}[1]{%
  \settowidth{\cwidth}{#1}%
  \textcolor{red}{\rule{\cwidth}{2pt}}
}
\let\oldpoint=\point
\let\endoldpoint=\endpoint
\renewenvironment{point}{%
\par\noindent\autowidth{\large\bfseries نکته \thepoint}\oldpoint%
\leavevmode\par\bigskip\noindent\ignorespaces}
{\endoldpoint}
\begin{document}
\chapter{مقدمه}
\begin{point}\label{p1}%
فقط متن فقط متن فقط متن فقط متن فقط متن فقط متن فقط متن فقط متن فقط متن فقط متن فقط متن  فقط متن.
\end{point}
\begin{point}
متن و فرمول:
\[ a=b \]
\end{point}
\end{document}